﻿Public Class frmExAlumnosView
    Public Presenter As New ExAlumnosPresenter
    Private Sub frmExAlumnosView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler ModuleController.Instance.OnChangeAlumnos, AddressOf ChangeAlumnosHandler
        Me.DataGridView1.DataSource = Presenter.GetOldAlumnos
    End Sub
    Public Sub ChangeAlumnosHandler(ByVal sender As Object, ByVal e As EventArgs)
        Me.DataGridView1.DataSource = Presenter.GetOldAlumnos
        Me.TextBox1.Text = DateTime.Now.ToLongTimeString
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ModuleController.Instance.RaiseChangeAlunnos(Me)
    End Sub
End Class